home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00495.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  1.1 KB  |  53 lines
  1. on mouseDown
  2.   global gsCleanUpHandler, giWhereIWas, name, orange, purple, yellow, rainy
  3.   set name to 0
  4.   set giWhereIWas to the frame
  5.   buttonLogic()
  6.   if the result = 1 then
  7.     do(gsCleanUpHandler)
  8.     set the visible of sprite 2 to 1
  9.     if the machineType = 256 then
  10.       nothing()
  11.     else
  12.       rainfade()
  13.     end if
  14.     if the machineType = 256 then
  15.       puppetSound(0)
  16.       sound stop 1
  17.       sound stop 2
  18.       if the frame = 43 then
  19.         nothing()
  20.       else
  21.         if rainy = 1 then
  22.           set rainy to 0
  23.         else
  24.           repeat with x = 3 to 5
  25.             if the visible of sprite x = 1 then
  26.               set the movieRate of sprite x to 0
  27.               next repeat
  28.             end if
  29.             nothing()
  30.           end repeat
  31.         end if
  32.       end if
  33.       set gbVideoUp to 0
  34.     else
  35.       set gbVideoUp to 0
  36.     end if
  37.     unLoad(139)
  38.     unLoad(176, 183)
  39.     unLoad(522)
  40.     unLoad(519)
  41.     unLoad(168, 175)
  42.     unLoad(446, 460)
  43.     unLoad(426, 459)
  44.     unLoad(520)
  45.     unLoad(155)
  46.     set orange to 0
  47.     set purple to 0
  48.     set yellow to 0
  49.     puppetSprite(2, 0)
  50.     go("PhotoAlbum")
  51.   end if
  52. end
  53.